﻿imports System.Text 
Public Class clsTTRFHDRRow
	inherits ADODBU.RowClass
	Private mVar_TRFHSEQ As System.Int32
	Private mVar_TRFHTRANSCOD As System.String
	Private mVar_TRFHTYPE As System.Int32
	Private mVar_TRFHSITEFROM As System.String
	Private mVar_TRFHSITETO As System.String
	Private mVar_TRFHNOTE As System.String
	Private mVar_TRFHDATECRE As System.DateTime
	Private mVar_TRFHDATEPIC As System.DateTime
	Private mVar_TRFHDATEREC As System.DateTime
	Private mVar_TRFHUTILCRE As System.String
	Private mVar_TRFHUTILPIC As System.String
	Private mVar_TRFHUTILREC As System.String
	Private mVar_TRFHSTAT As System.Int32
	Private mVar_TRFHFLAG As System.Int32
	Private mVar_TRFHCREA As System.DateTime
	Private mVar_TRFHMAJ As System.DateTime
	Private mVar_TRFHPROGCRE As System.String
	Private mVar_TRFHPROGUPD As System.String
	Private mVar_DirtyTRFHSEQ As Boolean=false 
	Private mVar_DirtyTRFHTRANSCOD As Boolean=false 
	Private mVar_DirtyTRFHTYPE As Boolean=false 
	Private mVar_DirtyTRFHSITEFROM As Boolean=false 
	Private mVar_DirtyTRFHSITETO As Boolean=false 
	Private mVar_DirtyTRFHNOTE As Boolean=false 
	Private mVar_DirtyTRFHDATECRE As Boolean=false 
	Private mVar_DirtyTRFHDATEPIC As Boolean=false 
	Private mVar_DirtyTRFHDATEREC As Boolean=false 
	Private mVar_DirtyTRFHUTILCRE As Boolean=false 
	Private mVar_DirtyTRFHUTILPIC As Boolean=false 
	Private mVar_DirtyTRFHUTILREC As Boolean=false 
	Private mVar_DirtyTRFHSTAT As Boolean=false 
	Private mVar_DirtyTRFHFLAG As Boolean=false 
	Private mVar_DirtyTRFHCREA As Boolean=false 
	Private mVar_DirtyTRFHMAJ As Boolean=false 
	Private mVar_DirtyTRFHPROGCRE As Boolean=false 
	Private mVar_DirtyTRFHPROGUPD As Boolean=false 
	Private mIsOnInit as Boolean 
	PUBLIC DataSource as ADODBU.Recordset 
	Public RowOrigin As clsTTRFHDRRow
''[------------------------------------------------------------------------]'
	Public Sub New()
	RowOrigin=new clsTTRFHDRRow(true)
	End Sub
''[------------------------------------------------------------------------]'
	Friend Sub New(lCut as boolean)
	 '--- untuk memutus loop reference 
	End Sub
	        ''[------------------------------------------------------------------------]'
	        ''' <summary>
	        ''' create new this class from inherited of this class or its self
	        ''' </summary>
	        ''' <param name="recdataRow"></param>
	        ''' <remarks></remarks>
	    Public Sub New(ByVal recdataRow As ADODBU.RowClass)
	        RowOrigin = New clsTTRFHDRRow(True)
	        me.JoinValue(recdataRow)
	    End Sub
''[------------------------------------------------------------------------]'
	Public Sub New(recData as  ADODBU.Recordset)
	RowOrigin=new clsTTRFHDRRow(true)
		DataSource = recData 
		try 
		InitVar( recdata.GetCurrentDataRow)
		Catch 
		end Try
	End Sub
 
''[------------------------------------------------------------------------]'
	Public Sub New(recdataRow as  DataRow)
	RowOrigin=new clsTTRFHDRRow(true)
		InitVar( recdataRow)
	End Sub
 
#Region "Initialize vars "
''[------------------------------------------------------------------------]'
	private Sub InitVar(Fields as  DataRow)
		Try
			 mVar_TRFHSEQ = Fields("TRFHSEQ")
			 RowOrigin.TRFHSEQ = mVar_TRFHSEQ 
		Catch e as Exception
		End Try
		Try
			 mVar_TRFHTRANSCOD = Fields("TRFHTRANSCOD")
			 RowOrigin.TRFHTRANSCOD = mVar_TRFHTRANSCOD 
		Catch e as Exception
		End Try
		Try
			 mVar_TRFHTYPE = Fields("TRFHTYPE")
			 RowOrigin.TRFHTYPE = mVar_TRFHTYPE 
		Catch e as Exception
		End Try
		Try
			 mVar_TRFHSITEFROM = Fields("TRFHSITEFROM")
			 RowOrigin.TRFHSITEFROM = mVar_TRFHSITEFROM 
		Catch e as Exception
		End Try
		Try
			 mVar_TRFHSITETO = Fields("TRFHSITETO")
			 RowOrigin.TRFHSITETO = mVar_TRFHSITETO 
		Catch e as Exception
		End Try
		Try
			 mVar_TRFHNOTE = Fields("TRFHNOTE")
			 RowOrigin.TRFHNOTE = mVar_TRFHNOTE 
		Catch e as Exception
		End Try
		Try
			 mVar_TRFHDATECRE = Fields("TRFHDATECRE")
			 RowOrigin.TRFHDATECRE = mVar_TRFHDATECRE 
		Catch e as Exception
		End Try
		Try
			 mVar_TRFHDATEPIC = Fields("TRFHDATEPIC")
			 RowOrigin.TRFHDATEPIC = mVar_TRFHDATEPIC 
		Catch e as Exception
		End Try
		Try
			 mVar_TRFHDATEREC = Fields("TRFHDATEREC")
			 RowOrigin.TRFHDATEREC = mVar_TRFHDATEREC 
		Catch e as Exception
		End Try
		Try
			 mVar_TRFHUTILCRE = Fields("TRFHUTILCRE")
			 RowOrigin.TRFHUTILCRE = mVar_TRFHUTILCRE 
		Catch e as Exception
		End Try
		Try
			 mVar_TRFHUTILPIC = Fields("TRFHUTILPIC")
			 RowOrigin.TRFHUTILPIC = mVar_TRFHUTILPIC 
		Catch e as Exception
		End Try
		Try
			 mVar_TRFHUTILREC = Fields("TRFHUTILREC")
			 RowOrigin.TRFHUTILREC = mVar_TRFHUTILREC 
		Catch e as Exception
		End Try
		Try
			 mVar_TRFHSTAT = Fields("TRFHSTAT")
			 RowOrigin.TRFHSTAT = mVar_TRFHSTAT 
		Catch e as Exception
		End Try
		Try
			 mVar_TRFHFLAG = Fields("TRFHFLAG")
			 RowOrigin.TRFHFLAG = mVar_TRFHFLAG 
		Catch e as Exception
		End Try
		Try
			 mVar_TRFHCREA = Fields("TRFHCREA")
			 RowOrigin.TRFHCREA = mVar_TRFHCREA 
		Catch e as Exception
		End Try
		Try
			 mVar_TRFHMAJ = Fields("TRFHMAJ")
			 RowOrigin.TRFHMAJ = mVar_TRFHMAJ 
		Catch e as Exception
		End Try
		Try
			 mVar_TRFHPROGCRE = Fields("TRFHPROGCRE")
			 RowOrigin.TRFHPROGCRE = mVar_TRFHPROGCRE 
		Catch e as Exception
		End Try
		Try
			 mVar_TRFHPROGUPD = Fields("TRFHPROGUPD")
			 RowOrigin.TRFHPROGUPD = mVar_TRFHPROGUPD 
		Catch e as Exception
		End Try
	End Sub
 
 
#End Region 
''[------------------------------------------------------------------------]'
#Region "Properties"
		Public Property TRFHSEQ As System.Int32
			Get
				Return mVar_TRFHSEQ
			End Get
			Set(ByVal Value As System.Int32 )
				mVar_TRFHSEQ= Value 
				Me.OnPropertyChanged(New System.ComponentModel.PropertyChangedEventArgs("TRFHSEQ")) 
				IF Not mIsOnInit then 
					mVar_DirtyTRFHSEQ= True
				End if 
			End Set
		End Property
		Public Property TRFHTRANSCOD As System.String
			Get
				Return mVar_TRFHTRANSCOD
			End Get
			Set(ByVal Value As System.String )
				mVar_TRFHTRANSCOD= Value 
				Me.OnPropertyChanged(New System.ComponentModel.PropertyChangedEventArgs("TRFHTRANSCOD")) 
				IF Not mIsOnInit then 
					mVar_DirtyTRFHTRANSCOD= True
				End if 
			End Set
		End Property
		Public Property TRFHTYPE As System.Int32
			Get
				Return mVar_TRFHTYPE
			End Get
			Set(ByVal Value As System.Int32 )
				mVar_TRFHTYPE= Value 
				Me.OnPropertyChanged(New System.ComponentModel.PropertyChangedEventArgs("TRFHTYPE")) 
				IF Not mIsOnInit then 
					mVar_DirtyTRFHTYPE= True
				End if 
			End Set
		End Property
		Public Property TRFHSITEFROM As System.String
			Get
				Return mVar_TRFHSITEFROM
			End Get
			Set(ByVal Value As System.String )
				mVar_TRFHSITEFROM= Value 
				Me.OnPropertyChanged(New System.ComponentModel.PropertyChangedEventArgs("TRFHSITEFROM")) 
				IF Not mIsOnInit then 
					mVar_DirtyTRFHSITEFROM= True
				End if 
			End Set
		End Property
		Public Property TRFHSITETO As System.String
			Get
				Return mVar_TRFHSITETO
			End Get
			Set(ByVal Value As System.String )
				mVar_TRFHSITETO= Value 
				Me.OnPropertyChanged(New System.ComponentModel.PropertyChangedEventArgs("TRFHSITETO")) 
				IF Not mIsOnInit then 
					mVar_DirtyTRFHSITETO= True
				End if 
			End Set
		End Property
		Public Property TRFHNOTE As System.String
			Get
				Return mVar_TRFHNOTE
			End Get
			Set(ByVal Value As System.String )
				mVar_TRFHNOTE= Value 
				Me.OnPropertyChanged(New System.ComponentModel.PropertyChangedEventArgs("TRFHNOTE")) 
				IF Not mIsOnInit then 
					mVar_DirtyTRFHNOTE= True
				End if 
			End Set
		End Property
		Public Property TRFHDATECRE As System.DateTime
			Get
				Return mVar_TRFHDATECRE
			End Get
			Set(ByVal Value As System.DateTime )
				mVar_TRFHDATECRE= Value 
				Me.OnPropertyChanged(New System.ComponentModel.PropertyChangedEventArgs("TRFHDATECRE")) 
				IF Not mIsOnInit then 
					mVar_DirtyTRFHDATECRE= True
				End if 
			End Set
		End Property
		Public Property TRFHDATEPIC As System.DateTime
			Get
				Return mVar_TRFHDATEPIC
			End Get
			Set(ByVal Value As System.DateTime )
				mVar_TRFHDATEPIC= Value 
				Me.OnPropertyChanged(New System.ComponentModel.PropertyChangedEventArgs("TRFHDATEPIC")) 
				IF Not mIsOnInit then 
					mVar_DirtyTRFHDATEPIC= True
				End if 
			End Set
		End Property
		Public Property TRFHDATEREC As System.DateTime
			Get
				Return mVar_TRFHDATEREC
			End Get
			Set(ByVal Value As System.DateTime )
				mVar_TRFHDATEREC= Value 
				Me.OnPropertyChanged(New System.ComponentModel.PropertyChangedEventArgs("TRFHDATEREC")) 
				IF Not mIsOnInit then 
					mVar_DirtyTRFHDATEREC= True
				End if 
			End Set
		End Property
		Public Property TRFHUTILCRE As System.String
			Get
				Return mVar_TRFHUTILCRE
			End Get
			Set(ByVal Value As System.String )
				mVar_TRFHUTILCRE= Value 
				Me.OnPropertyChanged(New System.ComponentModel.PropertyChangedEventArgs("TRFHUTILCRE")) 
				IF Not mIsOnInit then 
					mVar_DirtyTRFHUTILCRE= True
				End if 
			End Set
		End Property
		Public Property TRFHUTILPIC As System.String
			Get
				Return mVar_TRFHUTILPIC
			End Get
			Set(ByVal Value As System.String )
				mVar_TRFHUTILPIC= Value 
				Me.OnPropertyChanged(New System.ComponentModel.PropertyChangedEventArgs("TRFHUTILPIC")) 
				IF Not mIsOnInit then 
					mVar_DirtyTRFHUTILPIC= True
				End if 
			End Set
		End Property
		Public Property TRFHUTILREC As System.String
			Get
				Return mVar_TRFHUTILREC
			End Get
			Set(ByVal Value As System.String )
				mVar_TRFHUTILREC= Value 
				Me.OnPropertyChanged(New System.ComponentModel.PropertyChangedEventArgs("TRFHUTILREC")) 
				IF Not mIsOnInit then 
					mVar_DirtyTRFHUTILREC= True
				End if 
			End Set
		End Property
		Public Property TRFHSTAT As System.Int32
			Get
				Return mVar_TRFHSTAT
			End Get
			Set(ByVal Value As System.Int32 )
				mVar_TRFHSTAT= Value 
				Me.OnPropertyChanged(New System.ComponentModel.PropertyChangedEventArgs("TRFHSTAT")) 
				IF Not mIsOnInit then 
					mVar_DirtyTRFHSTAT= True
				End if 
			End Set
		End Property
		Public Property TRFHFLAG As System.Int32
			Get
				Return mVar_TRFHFLAG
			End Get
			Set(ByVal Value As System.Int32 )
				mVar_TRFHFLAG= Value 
				Me.OnPropertyChanged(New System.ComponentModel.PropertyChangedEventArgs("TRFHFLAG")) 
				IF Not mIsOnInit then 
					mVar_DirtyTRFHFLAG= True
				End if 
			End Set
		End Property
		Public Property TRFHCREA As System.DateTime
			Get
				Return mVar_TRFHCREA
			End Get
			Set(ByVal Value As System.DateTime )
				mVar_TRFHCREA= Value 
				Me.OnPropertyChanged(New System.ComponentModel.PropertyChangedEventArgs("TRFHCREA")) 
				IF Not mIsOnInit then 
					mVar_DirtyTRFHCREA= True
				End if 
			End Set
		End Property
		Public Property TRFHMAJ As System.DateTime
			Get
				Return mVar_TRFHMAJ
			End Get
			Set(ByVal Value As System.DateTime )
				mVar_TRFHMAJ= Value 
				Me.OnPropertyChanged(New System.ComponentModel.PropertyChangedEventArgs("TRFHMAJ")) 
				IF Not mIsOnInit then 
					mVar_DirtyTRFHMAJ= True
				End if 
			End Set
		End Property
		Public Property TRFHPROGCRE As System.String
			Get
				Return mVar_TRFHPROGCRE
			End Get
			Set(ByVal Value As System.String )
				mVar_TRFHPROGCRE= Value 
				Me.OnPropertyChanged(New System.ComponentModel.PropertyChangedEventArgs("TRFHPROGCRE")) 
				IF Not mIsOnInit then 
					mVar_DirtyTRFHPROGCRE= True
				End if 
			End Set
		End Property
		Public Property TRFHPROGUPD As System.String
			Get
				Return mVar_TRFHPROGUPD
			End Get
			Set(ByVal Value As System.String )
				mVar_TRFHPROGUPD= Value 
				Me.OnPropertyChanged(New System.ComponentModel.PropertyChangedEventArgs("TRFHPROGUPD")) 
				IF Not mIsOnInit then 
					mVar_DirtyTRFHPROGUPD= True
				End if 
			End Set
		End Property
		Public ReadOnly Property TRFHSEQIsDirty As Boolean 
			Get
				Return mVar_DirtyTRFHSEQ
			End Get
		End Property
		Public ReadOnly Property TRFHTRANSCODIsDirty As Boolean 
			Get
				Return mVar_DirtyTRFHTRANSCOD
			End Get
		End Property
		Public ReadOnly Property TRFHTYPEIsDirty As Boolean 
			Get
				Return mVar_DirtyTRFHTYPE
			End Get
		End Property
		Public ReadOnly Property TRFHSITEFROMIsDirty As Boolean 
			Get
				Return mVar_DirtyTRFHSITEFROM
			End Get
		End Property
		Public ReadOnly Property TRFHSITETOIsDirty As Boolean 
			Get
				Return mVar_DirtyTRFHSITETO
			End Get
		End Property
		Public ReadOnly Property TRFHNOTEIsDirty As Boolean 
			Get
				Return mVar_DirtyTRFHNOTE
			End Get
		End Property
		Public ReadOnly Property TRFHDATECREIsDirty As Boolean 
			Get
				Return mVar_DirtyTRFHDATECRE
			End Get
		End Property
		Public ReadOnly Property TRFHDATEPICIsDirty As Boolean 
			Get
				Return mVar_DirtyTRFHDATEPIC
			End Get
		End Property
		Public ReadOnly Property TRFHDATERECIsDirty As Boolean 
			Get
				Return mVar_DirtyTRFHDATEREC
			End Get
		End Property
		Public ReadOnly Property TRFHUTILCREIsDirty As Boolean 
			Get
				Return mVar_DirtyTRFHUTILCRE
			End Get
		End Property
		Public ReadOnly Property TRFHUTILPICIsDirty As Boolean 
			Get
				Return mVar_DirtyTRFHUTILPIC
			End Get
		End Property
		Public ReadOnly Property TRFHUTILRECIsDirty As Boolean 
			Get
				Return mVar_DirtyTRFHUTILREC
			End Get
		End Property
		Public ReadOnly Property TRFHSTATIsDirty As Boolean 
			Get
				Return mVar_DirtyTRFHSTAT
			End Get
		End Property
		Public ReadOnly Property TRFHFLAGIsDirty As Boolean 
			Get
				Return mVar_DirtyTRFHFLAG
			End Get
		End Property
		Public ReadOnly Property TRFHCREAIsDirty As Boolean 
			Get
				Return mVar_DirtyTRFHCREA
			End Get
		End Property
		Public ReadOnly Property TRFHMAJIsDirty As Boolean 
			Get
				Return mVar_DirtyTRFHMAJ
			End Get
		End Property
		Public ReadOnly Property TRFHPROGCREIsDirty As Boolean 
			Get
				Return mVar_DirtyTRFHPROGCRE
			End Get
		End Property
		Public ReadOnly Property TRFHPROGUPDIsDirty As Boolean 
			Get
				Return mVar_DirtyTRFHPROGUPD
			End Get
		End Property
#End Region 
''[------------------------------------------------------------------------]'
	Public Function SaveToDataSource() as string
		dim msgErr as string 
		msgErr ="" 
		if mVar_DirtyTRFHSEQ then 
		Try
			 DataSource.Fields("TRFHSEQ") =  mVar_TRFHSEQ 
		Catch e as Exception
			msgErr=msgErr & e.Message  
		End Try
		End if
		 
		if mVar_DirtyTRFHTRANSCOD then 
		Try
			 DataSource.Fields("TRFHTRANSCOD") =  mVar_TRFHTRANSCOD 
		Catch e as Exception
			msgErr=msgErr & e.Message  
		End Try
		End if
		 
		if mVar_DirtyTRFHTYPE then 
		Try
			 DataSource.Fields("TRFHTYPE") =  mVar_TRFHTYPE 
		Catch e as Exception
			msgErr=msgErr & e.Message  
		End Try
		End if
		 
		if mVar_DirtyTRFHSITEFROM then 
		Try
			 DataSource.Fields("TRFHSITEFROM") =  mVar_TRFHSITEFROM 
		Catch e as Exception
			msgErr=msgErr & e.Message  
		End Try
		End if
		 
		if mVar_DirtyTRFHSITETO then 
		Try
			 DataSource.Fields("TRFHSITETO") =  mVar_TRFHSITETO 
		Catch e as Exception
			msgErr=msgErr & e.Message  
		End Try
		End if
		 
		if mVar_DirtyTRFHNOTE then 
		Try
			 DataSource.Fields("TRFHNOTE") =  mVar_TRFHNOTE 
		Catch e as Exception
			msgErr=msgErr & e.Message  
		End Try
		End if
		 
		if mVar_DirtyTRFHDATECRE then 
		Try
			 DataSource.Fields("TRFHDATECRE") =  Format(mVar_TRFHDATECRE,DataSource.DbConn.DateFormat) 
		Catch e as Exception
			msgErr=msgErr & e.Message  
		End Try
		End if
		 
		if mVar_DirtyTRFHDATEPIC then 
		Try
			 DataSource.Fields("TRFHDATEPIC") =  Format(mVar_TRFHDATEPIC,DataSource.DbConn.DateFormat) 
		Catch e as Exception
			msgErr=msgErr & e.Message  
		End Try
		End if
		 
		if mVar_DirtyTRFHDATEREC then 
		Try
			 DataSource.Fields("TRFHDATEREC") =  Format(mVar_TRFHDATEREC,DataSource.DbConn.DateFormat) 
		Catch e as Exception
			msgErr=msgErr & e.Message  
		End Try
		End if
		 
		if mVar_DirtyTRFHUTILCRE then 
		Try
			 DataSource.Fields("TRFHUTILCRE") =  mVar_TRFHUTILCRE 
		Catch e as Exception
			msgErr=msgErr & e.Message  
		End Try
		End if
		 
		if mVar_DirtyTRFHUTILPIC then 
		Try
			 DataSource.Fields("TRFHUTILPIC") =  mVar_TRFHUTILPIC 
		Catch e as Exception
			msgErr=msgErr & e.Message  
		End Try
		End if
		 
		if mVar_DirtyTRFHUTILREC then 
		Try
			 DataSource.Fields("TRFHUTILREC") =  mVar_TRFHUTILREC 
		Catch e as Exception
			msgErr=msgErr & e.Message  
		End Try
		End if
		 
		if mVar_DirtyTRFHSTAT then 
		Try
			 DataSource.Fields("TRFHSTAT") =  mVar_TRFHSTAT 
		Catch e as Exception
			msgErr=msgErr & e.Message  
		End Try
		End if
		 
		if mVar_DirtyTRFHFLAG then 
		Try
			 DataSource.Fields("TRFHFLAG") =  mVar_TRFHFLAG 
		Catch e as Exception
			msgErr=msgErr & e.Message  
		End Try
		End if
		 
		if mVar_DirtyTRFHCREA then 
		Try
			 DataSource.Fields("TRFHCREA") =  Format(mVar_TRFHCREA,DataSource.DbConn.DateFormat) 
		Catch e as Exception
			msgErr=msgErr & e.Message  
		End Try
		End if
		 
		if mVar_DirtyTRFHMAJ then 
		Try
			 DataSource.Fields("TRFHMAJ") =  Format(mVar_TRFHMAJ,DataSource.DbConn.DateFormat) 
		Catch e as Exception
			msgErr=msgErr & e.Message  
		End Try
		End if
		 
		if mVar_DirtyTRFHPROGCRE then 
		Try
			 DataSource.Fields("TRFHPROGCRE") =  mVar_TRFHPROGCRE 
		Catch e as Exception
			msgErr=msgErr & e.Message  
		End Try
		End if
		 
		if mVar_DirtyTRFHPROGUPD then 
		Try
			 DataSource.Fields("TRFHPROGUPD") =  mVar_TRFHPROGUPD 
		Catch e as Exception
			msgErr=msgErr & e.Message  
		End Try
		End if
		 
		return msgErr 
	End function
 
''[------------------------------------------------------------------------]'
	Public Sub ClearDirty
		 mVar_DirtyTRFHSEQ = false
		 mVar_DirtyTRFHTRANSCOD = false
		 mVar_DirtyTRFHTYPE = false
		 mVar_DirtyTRFHSITEFROM = false
		 mVar_DirtyTRFHSITETO = false
		 mVar_DirtyTRFHNOTE = false
		 mVar_DirtyTRFHDATECRE = false
		 mVar_DirtyTRFHDATEPIC = false
		 mVar_DirtyTRFHDATEREC = false
		 mVar_DirtyTRFHUTILCRE = false
		 mVar_DirtyTRFHUTILPIC = false
		 mVar_DirtyTRFHUTILREC = false
		 mVar_DirtyTRFHSTAT = false
		 mVar_DirtyTRFHFLAG = false
		 mVar_DirtyTRFHCREA = false
		 mVar_DirtyTRFHMAJ = false
		 mVar_DirtyTRFHPROGCRE = false
		 mVar_DirtyTRFHPROGUPD = false
	End Sub
''[------------------------------------------------------------------------]'
	Public Sub SetDirty
		 mVar_DirtyTRFHSEQ = true
		 mVar_DirtyTRFHTRANSCOD = true
		 mVar_DirtyTRFHTYPE = true
		 mVar_DirtyTRFHSITEFROM = true
		 mVar_DirtyTRFHSITETO = true
		 mVar_DirtyTRFHNOTE = true
		 mVar_DirtyTRFHDATECRE = true
		 mVar_DirtyTRFHDATEPIC = true
		 mVar_DirtyTRFHDATEREC = true
		 mVar_DirtyTRFHUTILCRE = true
		 mVar_DirtyTRFHUTILPIC = true
		 mVar_DirtyTRFHUTILREC = true
		 mVar_DirtyTRFHSTAT = true
		 mVar_DirtyTRFHFLAG = true
		 mVar_DirtyTRFHCREA = true
		 mVar_DirtyTRFHMAJ = true
		 mVar_DirtyTRFHPROGCRE = true
		 mVar_DirtyTRFHPROGUPD = true
	End Sub

End Class
